<script>on mouseUpset cursor to busyhide targetput false into yksiEIOKput false into yksiOKchoose select toolrepeat with i=1 to the number of cardsgo cd iput "Image of " & field FontNameSize into Tiedostoexport paint to file Tiedostoif the result is empty then put true into yksiOKelse put true into yksiEIOKend repeatshow targetif not yksiOK then answer "No Paint Images created ! (due to file errors)"else if yksiEIOK then answer "(Some) Paint Images created."else answer "(All) Paint images created."choose browse toolend mouseUp</script>
<text>This paper was created by FontCard, a HC2.x stack by Taneli Armanto, Finland (tanar@utu.fi)</text>
</content>
<name>Fontit</name>
<script>on openCardselect char 0 to 0 of field Normend openCardon doMenu Valintaif Valinta is in field Fonts thenTeeUusiKortti Valintaelse if Valinta is a number thenif word 3 of field Info is image then exit doMenuset cursor to busyAsetaKoko Valintaunlock screenselect char 0 to 0 of field Normelse if Valinta is "Print Stack..." thensend Tulosta to cd Ekaselect char 0 to 0 of field Normelse pass doMenuend doMenuon TeeUusiKortti Kirjasinput cd field DefSize of cd "Eka" into Kokoanswer "Font(s) will not be changed. Create a"¬&return&"new card with "&&Kirjasin&&Koko&&" ?" with OK,Cancelif it <> OK then exit TeeUusiKorttiset cursor to busylock screengo last cd of bg Fontitsend "doMenu New Card" to HyperCardmark this cardset hilite of bg button Marked to trueAsetaTekstitif cd field spaces of cd Eka > 0then AsetaVälit cd field spaces of cd Ekaset cursor to busyAsetaFontti KirjasinAsetaKoko Kokopush cardsort bg Fontit by field FontNameSizepop cardunlock screenselect char 0 to 0 of field Normend TeeUusiKortti-------- These are the subscripts to set font, size, text of the fields --on AsetaFontti Nimi -- the fontput Nimi into field FontNameput Nimi && " X" into field FontNameSizeFontita NormFontita ShiftFontita OptionFontita ShiftOptionend AsetaFonttion Fontita Kenttäset textFont of line 1 to 4 of field Kenttä to field FontNameend Fontita-----------------------on AsetaKoko Koko -- the sizeput Koko into last word of field FontNameSizeKokoa NormKokoa ShiftKokoa OptionKokoa ShiftOptionend AsetaKokoon Kokoa Kenttäset textSize of line 1 to 4 of field Kenttä to last word of field FontNameSizeend Kokoa-----------------------on AsetaTekstitput cd field Norm of cd Eka into field Normput cd field Shift of cd Eka into field Shiftput cd field Option of cd Eka into field Optionput cd field ShiftOption of cd Eka into field ShiftOptionend AsetaTekstit-----------------------on AsetaVälit spaceLkmglobal Väliset cursor to busyput char 1 to spaceLkm of " " into VäliVälistä Normset cursor to busyVälistä ShiftVälistä Optionset cursor to busyVälistä ShiftOptionend AsetaVäliton Välistä Kenttäglobal Väliput field Kenttä into Merkitput "" into Apuput the number of chars in Merkit into nrepeat with i= 1 to nif char i of Merkit is " " then next repeatput char i of Merkit after Apuif char i of Merkit is not return and i<nthen put Väli after Apuend repeatput Apu into field Kenttäend Välistä-----------------------on Välitif word 3 of field Info is "image" then exit Välitput last word of field FontNameSize into Kokoask "The number of spaces between characters:"¬with cd field spaces of cd Ekaif not Kokonaisluku( it ) then exit Välitif it ≥ 0 thenlock screenAsetaVälit itAsetaFontti field FontNameAsetaKoko Kokoend ifunlock screenselect char 0 to 0 of field Normend Väliton Varjoglobal ShadowStackset cursor to busyif openShadowStack() thenlock screenpush cardVarjostaKorttisort stack by field FontNameSizechoose browse toolpop cardunlock screenanswer "Bitmap image of this card created."end ifselect char 0 to 0 of field Normend Varjoon Merkkiif the marked of this card thenunmark cdset hilite of bg button Marked to falseelseset hilite of bg button Marked to truemark cdend ifselect char 0 to 0 of field Normend Merkkion Tulostahide bg button "Marked"print cardshow bg button "Marked"select char 0 to 0 of field Normend Tulostaon Tuhoaset cursor to busysend "doMenu Delete Card" to HyperCardend Tuhoa</script>
 (October 1995) (1995).iso/pc/fontutil/compress/fontcard.sea/FontCard 1.1/BMAP_3006.png){kind=link}